﻿Imports System.Runtime.Serialization

Public Module StaticValues

	<Serializable()> _
	Public NotInheritable Class Translations
		Implements ISerializable

		Public Property AvailableLanguagesList As List(Of Translation)

		Public Property AvailableLanguages As List(Of KeyValuePair(Of String, Translation))
			Get
				Dim returnList As New List(Of KeyValuePair(Of String, Translation))

				For Each langauge In AvailableLanguagesList
					With langauge
						returnList.Add(New KeyValuePair(Of String, Translation)(.URL, New Translation(.LanguageCode, .Language, .RightToLeft, .Hebrew, .Greek)))
					End With
				Next

				Return returnList
			End Get
			Set(value As List(Of KeyValuePair(Of String, Translation)))
				If AvailableLanguagesList Is Nothing Then
					AvailableLanguagesList = New List(Of Translation)
				End If

				For Each pair In value
					With pair.Value
						Dim workingTranslation As New Translation(.LanguageCode, .Language, .RightToLeft, .Hebrew, .Greek)
						workingTranslation.URL = pair.Key
						AvailableLanguagesList.Add(workingTranslation)
					End With
				Next
			End Set
		End Property

		Public Sub New()
		End Sub

		Public Sub GetObjectData(info As System.Runtime.Serialization.SerializationInfo, context As System.Runtime.Serialization.StreamingContext) Implements System.Runtime.Serialization.ISerializable.GetObjectData

		End Sub

	End Class

	<Serializable()>
	Public Class Translation
		Implements ISerializable

		Public Property URL As String
		Public Property LanguageCode As String
		Public Property Language As String
		Public Property RightToLeft As Boolean
		Public Property Hebrew As Boolean
		Public Property Greek As Boolean

		Private Sub New()
		End Sub

		Sub New(LanguageCode As String, Language As String, RightToLeft As Boolean, Hebrew As Boolean, Greek As Boolean)
			Me.LanguageCode = LanguageCode
			Me.Language = Language
			Me.RightToLeft = RightToLeft
			Me.Hebrew = Hebrew
			Me.Greek = Greek
		End Sub

		Public Overrides Function ToString() As String
			Return Language
		End Function

		Public Sub GetObjectData(info As System.Runtime.Serialization.SerializationInfo, context As System.Runtime.Serialization.StreamingContext) Implements System.Runtime.Serialization.ISerializable.GetObjectData

		End Sub
	End Class

	Public ReadOnly Property AvailableLanguages As List(Of KeyValuePair(Of String, Translation))
		Get

			My.Settings.AvailableLanguages = Nothing


			If My.Settings.AvailableLanguages Is Nothing Then

				Dim _AvailableLanguages As New List(Of KeyValuePair(Of String, Translation))

				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/af/wol/b/r52/lp-af/bi12/AF/2001/", New Translation("af", "Afrikaans - Afrikaans", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/am/wol/b/r93/lp-am/bi7/AM/2008/", New Translation("am", "Amharic - Amharic", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ar/wol/b/r39/lp-a/bi12/A/2004/", New Translation("ar", "Arabic - العربية", True, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/az-latn/wol/b/r81/lp-ajr/bi7/AJR/2010/", New Translation("az-latn", "Azerbaijani - Azerbaijani", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/bem/wol/b/r61/lp-cw/bi12/CW/2008/", New Translation("bem", "Cibemba - Cibemba", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/bg/wol/b/r46/lp-bl/bi12/BL/2009/", New Translation("bg", "Bulgarian - Български", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ceb/wol/b/r101/lp-cv/bi12/CV/2000/", New Translation("ceb", "Cebuano - Cebuano", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/cs/wol/b/r29/lp-b/Rbi8/B/2000/", New Translation("cs", "Czech - Česky", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/da/wol/b/r9/lp-d/Rbi8/D/1993/", New Translation("da", "Danish - Dansk", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/de/wol/b/r10/lp-x/Rbi8/X/1986/", New Translation("de", "German - Deutsch", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ee/wol/b/r114/lp-ew/bi7/EW/2007/", New Translation("ee", "Ewe - Ewe", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/efi/wol/b/r35/lp-ef/bi12/EF/2010/", New Translation("efi", "Efik - Efịk", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/el/wol/b/r11/lp-g/bi12/G/1997/", New Translation("el", "Greek - Ελληνική", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/en/wol/b/r1/lp-e/nwt/E/2013/", New Translation("en", "English - English", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/en/wol/b/r1/lp-e/Rbi8/E/1984/", New Translation("en1984", "English (1984)", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/es/wol/b/r4/lp-s/Rbi8/S/1987/", New Translation("es", "Spanish - Español", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/et/wol/b/r37/lp-st/bi7/ST/2009/", New Translation("et", "Estonian - Eesti", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/fi/wol/b/r16/lp-fi/Rbi8/FI/2008/", New Translation("fi", "Finnish - Suomi", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/fr/wol/b/r30/lp-f/Rbi8/F/1996/", New Translation("fr", "French - Français", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/guw/wol/b/r63/lp-eg/bi7/EG/2009/", New Translation("guw", "Gun - Gun", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/hi/wol/b/r108/lp-hi/bi7/HI/2009/", New Translation("hi", "Hindi - हिन्दी", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/hil/wol/b/r94/lp-hv/bi7/HV/2007/", New Translation("hil", "Hiligaynon - Hiligaynon", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ho/wol/b/r74/lp-mo/bi7/MO/2010/", New Translation("ho", "Hiri Motu - Hiri Motu", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/hr/wol/b/r19/lp-c/bi12/C/2006/", New Translation("hr", "Croatian - Hrvatski", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/HT/wol/b/r60/lp-cr/bi7/CR/2010/", New Translation("HT", "Haitian Creole - Haitian Creole", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/hu/wol/b/r17/lp-h/bi12/H/2003/", New Translation("hu", "Hungarian - Magyar", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/hy-armn/wol/b/r44/lp-rea/bi12/REA/2010/", New Translation("hy-armn", "Armenian - Հայերեն", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/id/wol/b/r25/lp-in/bi12/IN/1999/", New Translation("id", "Indonesian - Bahasa Indonesia", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ig/wol/b/r31/lp-ib/bi12/IB/2007/", New Translation("ig", "Igbo - Igbo", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ilo/wol/b/r115/lp-il/bi12/IL/2000/", New Translation("ilo", "Iloko - Iloko", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/it/wol/b/r6/lp-i/Rbi8/I/1987/", New Translation("it", "Italian - Italiano", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ja/wol/b/r7/lp-j/Rbi8/J/1985/", New Translation("ja", "Japanese - 日本語", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ka/wol/b/r20/lp-ge/bi12/GE/2006/", New Translation("ka", "Georgian - ქართული", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/kk-cyrl/wol/b/r43/lp-az/bi7/AZ/2011/", New Translation("kk-cyrl", "Kazakh - Қазақша", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/km/wol/b/r124/lp-cb/bi7/CB/2008/", New Translation("km", "Cambodian - Cambodian", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ko/wol/b/r8/lp-ko/bi12/KO/1999/", New Translation("ko", "Korean - 한국어", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/kqn/wol/b/r68/lp-kd/bi7/KD/2011/", New Translation("kqn", "Kikaonde - Kikaonde", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ky/wol/b/r51/lp-kz/bi12/KZ/2011/", New Translation("ky", "Kirghiz - кыргызча", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ln/wol/b/r126/lp-li/bi12/LI/2009/", New Translation("ln", "Lingala - Lingala", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/loz/wol/b/r72/lp-sk/bi7/SK/2011/", New Translation("loz", "Silozi - Silozi", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/lt/wol/b/r32/lp-l/bi7/L/2011/", New Translation("lt", "Lithuanian - Lietuvių", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/lue/wol/b/r67/lp-lv/bi7/LV/2010/", New Translation("lue", "Luvale - Luvale", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/lv/wol/b/r49/lp-lt/bi7/LT/2011/", New Translation("lv", "Latvian - Latviešu", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/mg/wol/b/r26/lp-mg/bi12/MG/2008/", New Translation("mg", "Malagasy - Malagasy", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/mk/wol/b/r102/lp-mc/bi12/MC/2006/", New Translation("mk", "Macedonian - Македонски", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/mt/wol/b/r86/lp-mt/bi12/MT/2008/", New Translation("mt", "Maltese - Maltese", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ne/wol/b/r56/lp-np/bi7/NP/2010/", New Translation("ne", "Nepali - Nepali", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/nl/wol/b/r18/lp-o/Rbi8/O/2004/", New Translation("nl", "Dutch - Nederlands", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/no/wol/b/r3/lp-n/Rbi8/N/2008/", New Translation("no", "Norwegian - Norsk", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ny/wol/b/r107/lp-cn/bi12/CN/2010/", New Translation("ny", "Chichewa - Chichewa", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/os/wol/b/r97/lp-oss/bi12/OSS/2010/", New Translation("os", "Ossetian - Ossetian", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/pa/wol/b/r79/lp-pj/bi7/PJ/2011/", New Translation("pa", "Punjabi - Punjabi", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/pag/wol/b/r116/lp-pn/bi7/PN/2009/", New Translation("pag", "Pangasinan - Pangasinan", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/pap/wol/b/r99/lp-pa/bi7/PA/2011/", New Translation("pap", "Papiamento (Curaçao) - Papiamento (Curaçao)", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/pis/wol/b/r103/lp-sp/bi7/SP/2012/", New Translation("pis", "Solomon Islands Pidgin - Solomon Islands Pidgin", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/pl/wol/b/r12/lp-p/bi12/P/1997/", New Translation("pl", "Polish - Polski", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/pt/wol/b/r5/lp-t/Rbi8/T/1986/", New Translation("pt", "Portuguese - Português", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ro/wol/b/r34/lp-m/bi12/M/2006/", New Translation("ro", "Romanian - Română", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ru/wol/b/r2/lp-u/bi12/U/2007/", New Translation("ru", "Russian - Русский", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/run/wol/b/r82/lp-ru/bi12/RU/2010/", New Translation("run", "Kirundi - Kirundi", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/rw/wol/b/r127/lp-yw/bi12/YW/2010/", New Translation("rw", "Kinyarwanda - Kinyarwanda", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/sg/wol/b/r87/lp-sg/bi7/SG/2008/", New Translation("sg", "Sango - Sango", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/si/wol/b/r125/lp-sn/bi12/SN/2010/", New Translation("si", "Sinhala - Sinhala", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/sk/wol/b/r38/lp-v/bi12/V/1991/", New Translation("sk", "Slovak - Slovenčina", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/sl/wol/b/r64/lp-sv/bi12/SV/2009/", New Translation("sl", "Slovenian - Slovenščina", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/sn/wol/b/r45/lp-ca/bi12/CA/2004/", New Translation("sn", "Shona - Shona", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/sq/wol/b/r41/lp-al/bi12/AL/2005/", New Translation("sq", "Albanian - Shqip", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/sr-cyrl/wol/b/r54/lp-sb/bi12/SB/2006/", New Translation("sr-cyrl", "Serbian - Српски", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/srn/wol/b/r50/lp-sr/bi12/SR/2011/", New Translation("srn", "Sranantongo - Sranantongo", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/st/wol/b/r21/lp-su/bi12/SU/2000/", New Translation("st", "Sesotho - Sesotho", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/sv/wol/b/r14/lp-z/Rbi8/Z/2003/", New Translation("sv", "Swedish - Svenska", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/sw/wol/b/r13/lp-sw/bi12/SW/2003/", New Translation("sw", "Swahili - Kiswahili", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ta/wol/b/r123/lp-tl/bi7/TL/2009/", New Translation("ta", "Tamil - Tamil", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/th/wol/b/r113/lp-si/bi7/SI/2007/", New Translation("th", "Thai - ไทย", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ti/wol/b/r119/lp-ti/bi7/TI/2012/", New Translation("ti", "Tigrinya - Tigrinya", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/tl/wol/b/r27/lp-tg/bi12/TG/2000/", New Translation("tl", "Tagalog - Tagalog", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/tn/wol/b/r129/lp-tn/bi12/TN/2000/", New Translation("tn", "Tswana - Tswana", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/to/wol/b/r83/lp-to/bi7/TO/2011/", New Translation("to", "Tongan - Tongan", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/toi/wol/b/r70/lp-cg/bi7/CG/2010/", New Translation("toi", "Chitonga - Chitonga", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/tpi/wol/b/r75/lp-mp/bi7/MP/2010/", New Translation("tpi", "Tok Pisin - Tok Pisin", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/tr/wol/b/r22/lp-tk/bi12/TK/2008/", New Translation("tr", "Turkish - Türkçe", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/ts/wol/b/r84/lp-ts/bi12/TS/1998/", New Translation("ts", "Tsonga - Tsonga", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/tt/wol/b/r100/lp-tat/bi7/TAT/2012/", New Translation("tt", "Tatar - Tatar", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/tw/wol/b/r33/lp-tw/bi12/TW/2008/", New Translation("tw", "Twi - Twi", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/uk/wol/b/r15/lp-k/bi7/K/2005/", New Translation("uk", "Ukrainian - Українська", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/uz-cyrl/wol/b/r42/lp-uz/bi7/UZ/2010/", New Translation("uz-cyrl", "Uzbek - Ўзбекча", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/vi/wol/b/r47/lp-vt/bi7/VT/2011/", New Translation("vi", "Vietnamese - Tiếng Việt", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/war/wol/b/r110/lp-sa/bi7/SA/2012/", New Translation("war", "Waray-Waray - Waray-Waray", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/yo/wol/b/r36/lp-yr/bi12/YR/1997/", New Translation("yo", "Yoruba - Yorùbá", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/yua/wol/b/r40/lp-may/bi7/MAY/2012/", New Translation("yua", "Maya - Maya", False, False, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/zh-Hans/wol/b/r23/lp-chs/bi12/CHS/2001/", New Translation("zh-Hans", "Chinese (Simplified) - 汉语(简化字)", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/zh-Hant/wol/b/r24/lp-ch/bi12/CH/2001/", New Translation("zh-Hant", "Chinese (Traditional) - 漢語(繁體字)", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("pinyin~http://wol.homenet.org/zh-Hans/wol/b/r23/lp-chs/", New Translation("zh-Pinyin", "Hànyu Pinyin", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("sydneylau~http://wol.homenet.org/zh-Hans/wol/b/r23/lp-chs/", New Translation("zh-Sidney Lau", "Sidney Lau", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("zhuyin~http://wol.homenet.org/zh-Hans/wol/b/r23/lp-chs/", New Translation("zh-Zhuyin", "ㄅㄆㄇㄈ", False, True, True)))
				_AvailableLanguages.Add(New KeyValuePair(Of String, Translation)("http://m.wol.jw.org/zu/wol/b/r28/lp-zu/bi12/ZU/2002/", New Translation("zu", "Zulu - IsiZulu", False, True, True)))
				'96 translations.

				My.Settings.AvailableLanguages = New Translations
				My.Settings.AvailableLanguages.AvailableLanguages = _AvailableLanguages

			End If

			Return My.Settings.AvailableLanguages.AvailableLanguages
		End Get
	End Property

End Module